inherited FRelatorioAutorizaPedido: TFRelatorioAutorizaPedido
  Caption = 'COMPRAS / PEDIDO DE COMPRA / PEDIDO / INFORMA'#199#213'ES'
  FormStyle = fsNormal
  OldCreateOrder = True
  Visible = False
  PixelsPerInch = 96
  TextHeight = 16
  inherited Panel2: TPanel
    Caption = 'INFORMA'#199#213'ES PARA AUTORIZA'#199#195'O DO PEDIDO/ITEM'
  end
  inherited RLReport: TRLReport
    Left = 8
    Top = 189
    DataSource = DSPesquisa
    PreviewOptions.ShowModal = True
    inherited RLBand1: TRLBand
      Height = 83
      Borders.DrawBottom = False
    end
    object RLBand4: TRLBand
      Left = 38
      Top = 121
      Width = 718
      Height = 17
      BeforePrint = RLBand4BeforePrint
      object rldb1: TRLDBText
        Left = 0
        Top = 0
        Width = 79
        Height = 16
        AutoSize = False
        DataField = 'CAMPO1'
        DataSource = DSPesquisa
      end
      object rldb2: TRLDBText
        Left = 88
        Top = 0
        Width = 79
        Height = 16
        AutoSize = False
        DataField = 'CAMPO2'
        DataSource = DSPesquisa
      end
      object rldb3: TRLDBText
        Left = 184
        Top = 0
        Width = 79
        Height = 16
        AutoSize = False
        DataField = 'CAMPO3'
        DataSource = DSPesquisa
      end
      object rldb4: TRLDBText
        Left = 280
        Top = 0
        Width = 79
        Height = 16
        AutoSize = False
        DataField = 'CAMPO4'
        DataSource = DSPesquisa
      end
      object rldb5: TRLDBText
        Left = 368
        Top = 0
        Width = 79
        Height = 16
        AutoSize = False
        DataField = 'CAMPO5'
        DataSource = DSPesquisa
      end
      object rldb6: TRLDBText
        Left = 464
        Top = 0
        Width = 79
        Height = 16
        AutoSize = False
        DataField = 'CAMPO6'
        DataSource = DSPesquisa
      end
      object rldb7: TRLDBText
        Left = 552
        Top = 0
        Width = 79
        Height = 16
        AutoSize = False
        DataField = 'CAMPO7'
        DataSource = DSPesquisa
      end
      object rldb8: TRLDBText
        Left = 640
        Top = 0
        Width = 74
        Height = 16
        AutoSize = False
        DataField = 'CAMPO8'
        DataSource = DSPesquisa
      end
    end
  end
  inherited QPesquisa: TQuery
    AfterOpen = QPesquisaAfterOpen
    SQL.Strings = (
      'SELECT'
      '  *'
      'FROM'
      '  ITENSPEDIDO'
      
        '  INNER JOIN PEDIDO ON (ITENSPEDIDO.ITENS_PED_PEDIDO = PEDIDO.PE' +
        'D_CODIGO)'
      
        '  INNER JOIN FORNECEDOR ON (PEDIDO.PED_FORNECEDOR = FORNECEDOR.F' +
        'ORN_CODIGO)'
      
        '  INNER JOIN ITENSSOLICITACAO ON (ITENSPEDIDO.ITENS_PED_PRODUTO ' +
        '= ITENSSOLICITACAO.ITENSSOL_PRODCODIGO)'
      
        '  INNER JOIN SOLICITACAO ON (ITENSSOLICITACAO.ITENSSOL_SOL_CODIG' +
        'O = SOLICITACAO.SOL_CODIGO)'
      
        '                        AND (SOLICITACAO.SOL_CODIGO       = PEDI' +
        'DO.PED_SOLICITACAO)'
      
        '  INNER JOIN SOLICITANTE ON (SOLICITANTE.SOLI_CODIGO = SOLICITAC' +
        'AO.SOL_SOLICITANTE)'
      
        '                        AND (SOLICITANTE.SOL_SOLICITANTE_ID = '#39'S' +
        #39')'
      
        '  INNER JOIN CENTROCUSTO ON (SOLICITANTE.SOLI_CENTROCUSTO = CENT' +
        'ROCUSTO.CODIGO)'
      
        '  INNER JOIN PRODUTO ON (PRODUTO.PROD_CODIGO = ITENSPEDIDO.ITENS' +
        '_PED_PRODUTO)'
      
        '  INNER JOIN SALDOESTOQUE ON (PRODUTO.PROD_CODIGO = SALDOESTOQUE' +
        '.SAL_EST_PRODUTO)'
      'WHERE'
      '  (PEDIDO.PED_CODIGO = :PED_CODIGO) AND'
      '  (ITENSPEDIDO.ITENS_PED_PRODUTO = :ITENS_PED_PRODUTO)')
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PED_CODIGO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ITENS_PED_PRODUTO'
        ParamType = ptUnknown
      end>
  end
  inherited DSPesquisa: TDataSource
    Top = 278
  end
  inherited RLDraftFilter: TRLDraftFilter
    Top = 8
  end
  inherited RLHTMLFilter1: TRLHTMLFilter
    Top = 8
  end
  inherited RLXLSFilter: TRLXLSFilter
    Top = 8
  end
  inherited RLPDFFilter: TRLPDFFilter
    Top = 8
  end
  inherited SaveDialog: TSaveDialog
    Top = 8
  end
  object QUltimasCompras: TQuery
    AfterOpen = QUltimasComprasAfterOpen
    DatabaseName = 'base'
    DataSource = dsMestre
    SQL.Strings = (
      'SELECT FIRST 5'
      '  NOTAFISCAL.NF_FORNECEDOR_DESC,'
      '  MAX(NOTAFISCAL.NF_DATAESTOQUE) AS NF_DATAESTOQUE,'
      '  SUM(ITENSNOTAFISCAL.ITENS_NF_QUANTIDADE *'
      '      ITENSNOTAFISCAL.ITENS_NF_VALORUNITARIO) AS TOTAL,'
      '  ITENSNOTAFISCAL.ITENS_NF_QUANTIDADE,'
      '  ITENSNOTAFISCAL.ITENS_NF_VALORUNITARIO,'
      '  NOTAFISCAL.NF_NOTAFISCAL'
      'FROM'
      '  NOTAFISCAL'
      
        '  INNER JOIN ITENSNOTAFISCAL ON (NOTAFISCAL.NF_CODIGO = ITENSNOT' +
        'AFISCAL.ITENS_NF_NOTAFISCAL)'
      'WHERE'
      '  (ITENSNOTAFISCAL.ITENS_NF_PRODUTO = :ITENS_PED_PRODUTO)AND'
      '  (NOTAFISCAL.CODIGOEMPRESA = :CODIGOEMPRESA)'
      'GROUP BY'
      '  NOTAFISCAL.NF_FORNECEDOR_DESC,'
      '  ITENSNOTAFISCAL.ITENS_NF_QUANTIDADE,'
      '  ITENSNOTAFISCAL.ITENS_NF_VALORUNITARIO,'
      '  NOTAFISCAL.NF_NOTAFISCAL'
      'ORDER BY'
      '  2 DESC')
    Left = 288
    Top = 248
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ITENS_PED_PRODUTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'CODIGOEMPRESA'
        ParamType = ptUnknown
        Size = 4
      end>
  end
  object dsUltimasCompras: TDataSource
    DataSet = QUltimasCompras
    Left = 288
    Top = 280
  end
  object dsMestre: TDataSource
    DataSet = QPesquisa
    Left = 256
    Top = 216
  end
  object QPedidosPendentes: TQuery
    AfterOpen = QPedidosPendentesAfterOpen
    DatabaseName = 'base'
    DataSource = dsMestre
    SQL.Strings = (
      'SELECT'
      '  MAX(PEDIDO.PED_DATA) AS PED_DATA,'
      '  PEDIDO.PED_FORNECEDOR_DESC,'
      '  PEDIDO.PED_CODIGO,'
      '  ITENSPEDIDO.ITENS_PED_QUANTIDADE,'
      '  ITENSPEDIDO.ITENS_PED_VALOR,'
      '  ITENSPEDIDO.ITENS_PED_VALOR_TOTAL'
      'FROM'
      '  PEDIDO'
      
        '  INNER JOIN ITENSPEDIDO ON(PEDIDO.PED_CODIGO = ITENSPEDIDO.ITEN' +
        'S_PED_PEDIDO)'
      'WHERE'
      '  (PEDIDO.EXCLUIDO <> '#39'S'#39' OR PEDIDO.EXCLUIDO IS NULL) AND'
      
        '  ((ITENSPEDIDO.ITENS_PED_QUANTIDADE - ITENSPEDIDO.ITENS_PED_QUA' +
        'NTIDADEATEN) > 0)AND'
      '  (ITENSPEDIDO.ITENS_PED_SITUACAO = 0) AND'
      '  (PEDIDO.PED_CODIGO <> :ITENS_PED_PEDIDO)AND'
      '  (ITENSPEDIDO.ITENS_PED_PRODUTO = :ITENS_PED_PRODUTO)AND'
      '  (PEDIDO.CODIGOEMPRESA = :CODIGOEMPRESA)'
      'GROUP BY'
      '  PEDIDO.PED_FORNECEDOR_DESC,'
      '  PEDIDO.PED_CODIGO,'
      '  ITENSPEDIDO.ITENS_PED_QUANTIDADE,'
      '  ITENSPEDIDO.ITENS_PED_VALOR,'
      '  ITENSPEDIDO.ITENS_PED_VALOR_TOTAL'
      'ORDER BY'
      '  1 DESC')
    Left = 320
    Top = 248
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ITENS_PED_PEDIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ITENS_PED_PRODUTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CODIGOEMPRESA'
        ParamType = ptUnknown
      end>
  end
  object QSolicitacaoPendente: TQuery
    AfterOpen = QSolicitacaoPendenteAfterOpen
    DatabaseName = 'base'
    DataSource = dsMestre
    SQL.Strings = (
      'SELECT'
      '  MAX(SOLICITACAO.SOL_CODIGO) AS SOL_CODIGO,'
      '  SOLICITACAO.SOL_DATA,'
      '  CENTROCUSTO.CODIGOCENTROCUSTO,'
      '  SOLICITACAO.SOL_SOLICITANTE_DESC,'
      '  SOLICITACAO.SOL_AUTORIZANTE,'
      '  ITENSSOLICITACAO.ITENSSOL_QTDPEDIDO,'
      '  SOLICITACAO.USUARIO_CADASTRO'
      'FROM'
      '  SOLICITACAO'
      
        '  INNER JOIN ITENSSOLICITACAO ON (SOLICITACAO.SOL_CODIGO = ITENS' +
        'SOLICITACAO.ITENSSOL_SOL_CODIGO)'
      
        '  INNER JOIN SOLICITANTE ON (SOLICITANTE.SOLI_CODIGO = SOLICITAC' +
        'AO.SOL_SOLICITANTE)'
      
        '                        AND (SOLICITANTE.SOL_SOLICITANTE_ID = '#39'S' +
        #39')'
      
        '  INNER JOIN CENTROCUSTO ON (SOLICITANTE.SOLI_CENTROCUSTO = CENT' +
        'ROCUSTO.CODIGO)'
      'WHERE'
      
        '  (ITENSSOLICITACAO.ITENSSOL_PRODCODIGO = :ITENS_PED_PRODUTO) AN' +
        'D'
      
        '  ((SOLICITACAO.EXCLUIDO IS NULL) OR (SOLICITACAO.EXCLUIDO <> '#39'S' +
        #39')) AND'
      '  (SOLICITACAO.SOL_VALIDACAO = '#39'S'#39') AND'
      '  (SOLICITACAO.SOL_SITUACAO  = '#39'A'#39')'
      'GROUP BY'
      '  SOLICITACAO.SOL_DATA,'
      '  CENTROCUSTO.CODIGOCENTROCUSTO,'
      '  SOLICITACAO.SOL_SOLICITANTE_DESC,'
      '  SOLICITACAO.SOL_AUTORIZANTE,'
      '  ITENSSOLICITACAO.ITENSSOL_QTDPEDIDO,'
      '  SOLICITACAO.USUARIO_CADASTRO'
      'ORDER BY'
      '  2 DESC')
    Left = 352
    Top = 248
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ITENS_PED_PRODUTO'
        ParamType = ptUnknown
      end>
  end
  object QRanking: TQuery
    DatabaseName = 'base'
    DataSource = dsMestre
    SQL.Strings = (
      'SELECT'
      '  COT.COT_SOLICITACAO,'
      '  COT.COT_FORNECEDOR_DESC,'
      '  COT.COD_DATA,'
      '  COT.COD_PROD_VALORUNIT,'
      '  COT.COT_PRODMARCA,'
      '  COT.COT_ESCOLHIDO,'
      '  (SELECT'
      '      COUNT(*)'
      '    FROM'
      '      COTACAO'
      '    WHERE'
      '      COTACAO.COT_PRODCODIGO = COT.COT_PRODCODIGO AND'
      '      COTACAO.COT_SOLICITACAO = COT.COT_SOLICITACAO) AS COT'
      'FROM'
      '  COTACAO COT'
      'WHERE'
      '  (COT.COT_SOLICITACAO = :SOL_CODIGO)AND'
      '  (COT.COT_PRODCODIGO = :ITENS_PED_PRODUTO)AND'
      '  (COT.COD_PROD_VALORUNIT > 0)')
    Left = 384
    Top = 248
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SOL_CODIGO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ITENS_PED_PRODUTO'
        ParamType = ptUnknown
      end>
  end
end
